library(shiny)

# Definujte UI pre aplikáciu, ktorá vykresľuje náhodné distribúcie 
shinyUI(fluidPage(

  # Titulok
  headerPanel("Hello Shiny!"),

  # Panel s posuvným vstupom pre počet pozorovaní = slider
  sidebarPanel(
    sliderInput("obs", 
                "Number of observations:", 
                min = 1,
                max = 1000, 
                value = 500)
  ),

    # Zobraziť graf generovanej distribúcie  mainPanel(
    plotOutput("distPlot")
  )
)

library(shiny)
# Definujte logiku servera potrebnú na vygenerovanie a vykreslenie náhodnej distribúcie
shinyServer(function(input, output) { 
   # Výraz, ktorý generuje graf distribúcie.
   # Tento vyraz je "zabaleny" do renderPlot, čo znamená, že:
   #      1) Je „reaktívny“, a preto by mal byť automaticky
   #         znovu vykonaný pri zmene vstupov
   #      2) Výstup je graf
    output$distPlot <- renderPlot({
    # vygeneruje rnorm rozdelenie a vykreslí ho
    dist <- rnorm(input$obs)
    hist(dist)
  })
})

library(shiny)

shinyUI(fluidPage(

  # Titulok
  headerPanel("Shiny Text"),

  # Sidebar s ovládacími prvkami na výber množiny údajov 
  # a určenie počtu pozorovaní, ktoré sa majú zobraziť
  sidebarPanel(
    selectInput("dataset", "Choose a dataset:", 
                choices = c("rock", "pressure", "cars")),

    numericInput("obs", "Number of observations to view:", 10)
  ),

  # Zobraziť sumárnu tabuľku s požadovaným počťom pozorovaní
  mainPanel(
    verbatimTextOutput("summary"),

    tableOutput("view")
  )
))

library(shiny)
library(datasets)

# Definujte logiku servera potrebnú na zhrnutie a zobrazenie vybraného súboru údajov
shinyServer(function(input, output) {

  # Vráti požadovaný súbor údajov
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  # Vytvorte sumarizáciu údajov
  output$summary <- renderPrint({
    dataset <- datasetInput()
    summary(dataset)
  })

  # Zobrazte prvých "n" pozorovaní
  output$view <- renderTable({
    head(datasetInput(), n = input$obs)
  })
})

library(shiny)

shinyUI(fluidPage(
  # nadpis
  headerPanel("Reactivity"),
  # SLider panel s ovládacími prvkami, ktorý poskytuje popis, 
  # vyberte množinu údajov a zadajte počet pozorovaní, ktoré sa majú zobraziť.
  # Všimnite si, že zmeny vykonané v popise v text Input sa aktualizujú okamžite pri písaní
  sidebarPanel(
    textInput("caption", "Caption:", "Data Summary"),

    selectInput("dataset", "Choose a dataset:", 
                choices = c("rock", "pressure", "cars")),

    numericInput("obs", "Number of observations to view:", 10)
  ),

  # Zobrazí nadpis, sumárnu tabuľku s požadovaným počtom pozorovaní
  mainPanel(
    h3(textOutput("caption")), 

    verbatimTextOutput("summary"), 

    tableOutput("view")
  )
))

library(shiny)
library(datasets)

# Definujte logiku servera potrebnú na zhrnutie a zobrazenie vybraného súboru údajov

shinyServer(function(input, output) {

  # Ak označíme datasetInput ako reaktívny, zabezpečíme že:
  #
  #  1) Zavolá sa iba vtedy, keď vstupy závisia od zmien
  #  2) Výpočet a výsledok zdieľajú všetci volajúci (vykoná sa naraz)

  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  #  output$caption sa počíta na základe reaktívneho výrazu, ktorý
  # vráti input$caption. Ak používateľ zmení "caption":
  #
  #  1) tento výraz sa automaticky zavolá aby sa výstup prekompiloval 
  #  2) Nový nadpis sa zobrazí v prehliadači

  output$caption <- renderText({
    input$caption
  })

  # output$summary je závislí od datasetInput reaktívneho výrazu, 
  # takže bude znova vykonaný vždy, keď sa zmenia vstupné údaje

  output$summary <- renderPrint({
    dataset <- datasetInput()
    summary(dataset)
  })

  # output$view závisí na dvoch reaktívnych výrayoch a to databaseInput
  # a input$obs, takže sa znova vykoná vždy, keď sa zmení input$dataset  
  # alebo input$obs. 

  output$view <- renderTable({
    head(datasetInput(), n = input$obs)
  })
})

library(shiny)

shinyUI(fluidPage(
  headerPanel("Action button"),

    sidebarPanel(   
        # Vstupy v rámci sidebaru vieme zoskupiť. Vhodné použitie zoskupenia je s akčným tlačítkom.
        # V prípade použitia akčného tlačítka v rámci zoskúpenia sa očakáva že program bude reagovať na zmeny 
        # vstupu až po aktivácii akčného tlačítka.
    wellPanel(
    selectInput("atribut", "Vyberte atribút:", 
                choices = c("cyl", "gear")),
        numericInput("numinput", "Líniová čiara v grafe", 1, 1, 10, 2),
        actionButton("action", "Spusť")
  )
  ),

  mainPanel(
    plotOutput("graf")
  )
))

library(shiny)
library(datasets)


shinyServer(function(input, output) {

  atributInput <- reactive({
    switch(input$atribut,
           "cyl" = mtcars$cyl,
           "gear" = mtcars$gear)
  })

 # Zavolanie funkcie observeEvent ktorú aktivuje akčné tlačidlo
 observeEvent(input$action, {
  output$graf = renderPlot({
      # Funkcia izolovania reaktitivy zabezpečí, že obsah v rámci funkcie je vykonaný až na základe akcie (observeEvent)
      isolate({
             barplot(table(atributInput()), main=input$caption)
             abline(h = input$numinput, lwd=2, col="black")
                  })
          })
     })

})

kód	Popis
`italic`alebo `_italic_`	Šikmé písmo
`bold` alebo `__bold__`	Tučné písmo
`~~slovo~~`	Prečiarknuté písmo
`# Header 1` `## Header 2` `### Header 3`	Nadpisy
`- Item 1` `- Item 2` `- Item 3`	Jednoduchý nečíslovaný zoznam
`* Item 1` `* Item 2` `[tab] * Item 2a` `[tab][tab] * Item 2b`	Nečíslovaný zoznam
`1. Item 1` `2. Item 2` `[tab] + Item 2a` `[tab][tab] + Item 2b`	Číslovaný zoznam
`http://example.com`	Link, priamo
`[moj text](http://example.com)`	Link s vloženým textom
`[![moj text](http://example.com/logo.png)` alebo `![moj text](figures/img.png)`	Odkaz na obrázok
`> Toto je citácia v bloku`	Text (citácia) zarovnaná do bloku
`***`	Horizontálna čiara
`Názov 1 \| Názov 2 \| Názov 3` `------- \| ------- \| -------` `Hodnota 1.1 \| Hodnota 1.2 \| Hodnota 1.3` `Hodnota 2.1 \| Hodnota 2.2 \| Hodnota 2.3`	Tabuľky

Základné prvky R Markdown

R Shiny¶

Základné funkcie¶

Vstupy od používateľa

Výstupné a renderovacie funkcie

Celkový vzhľad stránky

Hello Shiny!¶

Shiny príklad 2¶

Shiny príklad 3¶

Shiny príklad 4¶

Úloha 5.1

Ďalšie úlohy na precvičenie R Shiny¶